home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GEOS Mega ASM (19xx)(-).d64 / list6-3 < prev    next >
Text File  |  2019-04-13  |  3KB  |  164 lines
  1. ; Desk Accessory zum Auslesen von Syteminformationen
  2. if     .p
  3.      t     "TopSym"
  4.      t     "TopMac"
  5. endif
  6.      f     DESK_ACC
  7.      o     $5500
  8.      q     $7f39
  9.  
  10. :Left     = 48
  11. :Right     = 272
  12. :Top     = 16
  13. :Bottom     = 152
  14.  
  15. :Start     jsr     i_ImprintRectangle
  16.      b     0,199
  17.      w     0,319
  18.  
  19.      LoadW     r1,COLOR_MATRIX
  20.      LoadW     r0,1000
  21.      MoveB     screencolors,r2L
  22.      jsr     FillRam
  23.  
  24.      LoadB     dispBufferOn,ST_WR_FORE!ST_WR_BACK
  25.      LoadW     r0,GrafikTab
  26.      jsr     GraphicsString
  27.  
  28.      LoadW     r0,MenuTab
  29.      jsr     DoMenu
  30.  
  31.      LoadW     r0,IconTab
  32.      jsr     DoIcons
  33.  
  34.      LoadW     leftMargin,Left+10
  35.      jsr     i_PutString
  36.      w     Left+10
  37.      b     Top+32
  38.      b     "aktueller Diskname:",CR
  39.      b     "Druckername:",CR
  40.      b     "Zeit:",NULL
  41.  
  42.      LoadW     r8,curDirHead+144
  43.      LoadW     r9,DiskName
  44.      ldx     #r8L     ; Wertzeichen beachten !!
  45.      ldy     #r9L
  46.      lda     #16
  47.      jsr     CopyFString
  48.  
  49.      LoadW     r0,DiskName
  50.      LoadW     r11,Left+100
  51.      LoadB     r1H,Top+32
  52.      jsr     PutString
  53.      LoadW     r0,PrntFileName
  54.      LoadW     r11,Left+100
  55.      LoadB     r1H,Top+32+10
  56.      jsr     PutString
  57.      rts
  58.  
  59. :GrafikTab
  60.      b     MOVEPENTO
  61.      w     Left+8
  62.      b     Top+8
  63.      b     NEWPATTERN
  64.      b     1
  65.      b     RECTANGLETO
  66.      w     Right+8
  67.      b     Bottom+8
  68.      b     MOVEPENTO
  69.      w     Left
  70.      b     Top
  71.      b     NEWPATTERN
  72.      b     9
  73.      b     RECTANGLETO
  74.      w     Right
  75.      b     Top+16
  76.      b     NEWPATTERN
  77.      b     0
  78.      b     RECTANGLETO
  79.      w     Left
  80.      b     Bottom
  81.      b     FRAME_RECTO
  82.      w     Right
  83.      b     Top
  84.      b     NULL
  85.  
  86.  
  87. :MenuTab     b     Top,Top+14
  88.      w     Left,Left+32
  89.      b     HORIZONTAL!1
  90.      w     MenuText
  91.      b     SUB_MENU
  92.      w     UnterMenu
  93.  
  94. :MenuText     b     "Men}",0
  95.  
  96. :UnterMenu     b     Top+14,Top+28
  97.      w     Left,Left+32
  98.      b     VERTICAL!1
  99.      w     InfoText
  100.      b     MENU_ACTION
  101.      w     DoInfo
  102.  
  103. :InfoText     b     "Info",0
  104.  
  105. :IconTab     b     1     ; 1 Icon
  106.      w     0     ; kein Setzen der Maus
  107.      b     0
  108.  
  109.      w     komBitmap     ; Zeiger auf die Bitmap
  110.      b     Right/8-2     ; x-Koordinate in CARDS
  111.      b     Top     ; y-Koordinate in Pixel
  112.      b     2     ; Breite des Icon
  113.      b     14     ; H|he des Icon
  114.      w     EndDA     ; Adresse, die bei Anwahl
  115.                ; angesprungen wird
  116.  
  117. :komBitmap     b     $80+28     ; Kopfbyte + 28 Folgebytes
  118.      b     %11111111,%11111111
  119.      b     %10000000,%00000001
  120.      b     %10000000,%00000001
  121.      b     %10000000,%00000001
  122.      b     %10000000,%00000001
  123.      b     %10000000,%00000001
  124.      b     %10000111,%11100001
  125.      b     %10000111,%11100001
  126.      b     %10000000,%00000001
  127.      b     %10000000,%00000001
  128.      b     %10000000,%00000001
  129.      b     %10000000,%00000001
  130.      b     %10000000,%00000001
  131.      b     %11111111,%11111111
  132.  
  133.  
  134. :EndDA     LoadW     appMain,RstrAppl
  135.      rts
  136.  
  137. :DoInfo     jsr     GotoFirstMenu
  138.      LoadW     r0,dlgBoxRamBuf
  139.      LoadW     r1,merkBuffer
  140.      LoadW     r2,417
  141.      jsr     MoveData
  142.  
  143.      LoadW     r0,DialTab
  144.      jsr     DoDlgBox
  145.  
  146.      jsr     i_MoveData
  147.      w     merkBuffer
  148.      w     dlgBoxRamBuf
  149.      w     417
  150.  
  151.      rts
  152.  
  153. :DialTab     b     $81
  154.      b     OK
  155.      b     16,50
  156.      b     NULL
  157.  
  158. :merkBuffer
  159.      s     420
  160.  
  161.  
  162. :DiskName
  163.      s     17